home *** CD-ROM | disk | FTP | other *** search
/ MacTech 1 to 12 / MacTech-vol-1-12.toast / Source / MacTech® Magazine / Volume 04 - 1988 / 04.10 Oct 88 / MSSourcesLong / Glue.C < prev    next >
Encoding:
C/C++ Source or Header  |  1987-12-13  |  2.0 KB  |  79 lines  |  [TEXT/EDIT]
  1. #include    "MyTools.p"
  2. /*    ______________    Segment Loader    ___________    */
  3. //========
  4.  CLaunch()
  5. //========
  6. /* D0 = FILENAME @, D1 = CONFIGURATION    */
  7. BEGIN_FCT
  8.     #asm
  9.        FNAME     EQU   0            ;FILENAME OFFSET
  10.        CONFIG    EQU   4            ;CONFIGURATION OFFSET
  11.  
  12.        LEA       LParm, A0          ;LOAD LOCATION OF LAUNCHPARAMS
  13.        MOVE.L    D0, FNAME(A0)      ;LOAD FILENAME
  14.        MOVE.L    D1, CONFIG(A0)     ;LOAD CONFIG
  15.        DC.W      $A9F2              ;LAUNCH
  16.  
  17.       LParm:                        ;FILENAME OFFSET
  18.        DC.L      0
  19.        DC.W         0
  20.     #endasm
  21.  
  22. END_FCT
  23. /*   _________    FILE PACKAGE ROUTINES    _____________ */
  24. //======================================================================
  25. SFGetFile(where, prompt, fileFilter, numTypes, typeList, dlgHook, reply)
  26. //======================================================================
  27.   long            *where;    // really address of a point
  28.   Str255       *prompt;
  29.   int            (*fileFilter)();
  30.   short        numTypes;
  31.   SFTypeList   *typeList;
  32.   int            (*dlgHook)();
  33.   SFReply      *reply;
  34. BEGIN_FCT
  35.   #asm
  36.     MOVE.L D0,A0
  37.     MOVE.L (A0),-(SP) ; WHERE
  38.     MOVE.L D1,-(SP)   ; PROMPT
  39.     MOVE.L D2,-(SP)   ; FILTER PROC
  40.     MOVE.W D3,-(SP)   ; numTypes
  41.     MOVE.L D4,-(SP)   ; typeList
  42.     MOVE.L D5,-(SP)   ; dlgHook
  43.     MOVE.L D6,-(SP)   ; reply
  44.     MOVE #2,-(SP)     ; Routine Selector
  45.     DC.W $A9EA        ; PACK3
  46.   #endasm
  47.  
  48. END_FCT
  49. /* __________  GLUE FOR BIN/DEC CONVERSION  ________________  */
  50. //========================
  51. StringToNum(theStr,theNum)
  52.     char        *theStr;
  53.     long        *theNum;
  54. //========================
  55. BEGIN_FCT
  56.  
  57. #asm
  58.     MOVE.L    D0,A0        ;Str Ptr
  59.     MOVE.W    #1,-(SP)    ;Routine Selector
  60.     DC.W        $A9EE        ;Pack7
  61.     MOVE.L    D1,A0        ;D1 preserved
  62.     MOVE.L    D0,(A0)    ;assign theNum
  63. #endasm
  64.  
  65. END_FCT
  66. //========================
  67. NumToString(theNum,theStr)
  68.     long            theNum;
  69.     char            *theStr;
  70. //========================
  71. BEGIN_FCT
  72.  
  73. #asm
  74.     MOVE.L    D1,A0        ;Str Ptr
  75.     MOVE.W    #0,-(SP)    ;Routine Selector
  76.     DC.W        $A9EE        ;Pack7
  77. #endasm
  78.  
  79. END_FCT